home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / e / EasyPLUGINs.lha / EasyPLUGINs / source / bitmapimage.e next >
Text File  |  1997-10-23  |  1KB  |  44 lines
  1. -> Bitmap-Plugin by Deniil715!
  2. -> mailto:deniil@algonet.se
  3.  
  4. OPT MODULE
  5.  
  6. MODULE 'tools/EasyGUI', 'intuition/intuition'
  7.  
  8. EXPORT OBJECT bitmapimage OF plugin
  9. PRIVATE
  10.  chipdata:PTR TO INT
  11.  img:PTR TO image
  12.  planes:INT
  13.  pick:CHAR
  14.  onoff:CHAR
  15. ENDOBJECT
  16.  
  17. PROC bitmapimage(bitmap,datalen,sizex,sizey,depth,planepick,planeonoff) OF bitmapimage
  18.  self.chipdata:=NIL
  19.  self.chipdata:=NewM(datalen,$10002)
  20.  CopyMem(bitmap,self.chipdata,datalen)
  21.  self.img:=[0,0,sizex,sizey,depth,self.chipdata,planepick,planeonoff,NIL]:image
  22.  self.planes:=depth
  23.  self.pick:=planepick
  24.  self.onoff:=planeonoff
  25.  self.xs:=sizex
  26.  self.ys:=sizey
  27. ENDPROC
  28.  
  29. PROC end() OF bitmapimage
  30.  IF self.chipdata THEN Dispose(self.chipdata)
  31. ENDPROC
  32.  
  33. PROC will_resize() OF bitmapimage IS FALSE
  34.  
  35. PROC min_size(ta,fh) OF bitmapimage IS self.xs,self.ys
  36.  
  37. PROC render(ta,x,y,xs,ys,w:PTR TO window) OF bitmapimage
  38.  DrawImage(w.rport,self.img,x,y)
  39. ENDPROC
  40.  
  41. PROC clear_render(w:PTR TO window) OF bitmapimage
  42.  EraseImage(w.rport,self.img,self.x,self.y)
  43. ENDPROC
  44.